home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / dev / gg / ncurses-5.3.lha / ncurses-5.3 / misc / cleantic.cmd < prev    next >
OS/2 REXX Batch file  |  2002-10-24  |  459b  |  17 lines
  1. /*
  2.  * $Id: cleantic.cmd,v 1.3 1998/08/29 21:43:19 tom Exp $
  3.  *
  4.  * Author:  Juan Jose Garcia Ripoll <worm@arrakis.es>.
  5.  * Webpage: http://www.arrakis.es/~worm/
  6.  */
  7. parse arg dir
  8.  
  9. pause
  10. dir = translate(dir,'\','/');
  11. letters = '0 1 2 3 4 5 6 7 8 9 a b c d e f g h i j k l m n o p q r s t u v w x y z'
  12.  
  13. if dir = '' then
  14.     dir = '.'
  15. 'echo Cleaning 'dir
  16. 'for %%1 in ('letters') do @if not exist 'dir'\%%1\* (echo Cleaning ...\%%1 & rd %%1 2>NUL)'
  17.